home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Network Support Library
/
RoseWare - Network Support Library.iso
/
apidev
/
tpapi.exe
/
NWQUEUE.PA1
< prev
next >
Wrap
Text File
|
1994-01-14
|
9KB
|
165 lines
{#Z+}
(*(10U&l12D(s4099T&k2S*)
{***************************************************************************}
{** Program : NWQUEUE **}
{***************************************************************************}
{** Version : 1.4 ** Started : 11/11/91 ** Ended : / / **}
{***************************************************************************}
{******************************** Description ******************************}
{***************************************************************************}
{** OOP library for Netware API **}
{** **}
{** This unit forms the second level object : NWQUEUE **}
{** This object is a descandent of : NETWARE **}
{** **}
{** **}
{** **}
{** **}
{***************************************************************************}
{******************************** Information ******************************}
{***************************************************************************}
{** Provides Netware Queue Management Services **}
{** **}
{** **}
{** **}
{** This code is (c) 1991 - 1994 Antonio Covelli. ALL RIGHTS RESERVED. **}
{** Portions (c) Novell Inc, **}
{** **}
{** **}
{***************************************************************************}
{$I NETWARE.INC}
{#Z-}
UNIT NWQUEUE;
INTERFACE
USES
nwvar,
netware;
TYPE
PQueueOBJ = ^QueueOBJ;
QueueOBJ = OBJECT (NetwareOBJ)
FUNCTION AbortServicingQueueJobAndFileText (QueueID : OT_BinderyID; JobNumber : WORD;
VAR FileName : FileOfText) : WORD;
FUNCTION AbortServicingQueueJobAndFileBinary (QueueID : OT_BinderyID; JobNumber : WORD;
VAR FileName : FileOfByte) : WORD;
FUNCTION AttachQueueServerToQueue (QueueID : OT_BinderyID) : WORD;
function ChangeJobPriority (QueueID : OT_BinderyID; JobNumber : longint;
Priority : longint) : word;
FUNCTION ChangeQueueJobEntry (QueueID : OT_BinderyID;
Job : JobStruct286) : WORD;
FUNCTION ChangeQueueJobEntry2 (QueueID : OT_BinderyID;
Job : JobStructure) : WORD;
FUNCTION ChangeQueueJobPosition (QueueID : OT_BinderyID; JobNumber : WORD;
NewPosition : BYTE) : WORD;
FUNCTION ChangeToClientRights (QueueID : OT_BinderyID;
JobNumber : WORD) : WORD;
FUNCTION ChangeToClientRights2 (QueueID : OT_BinderyID;
JobNumber : LONGINT) : WORD;
FUNCTION CloseFileAndAbortQueueJobText (QueueID : OT_BinderyID; JobNumber : WORD;
VAR FileName : FileOfText) : WORD;
FUNCTION CloseFileAndAbortQueueJobBinary (QueueID : OT_BinderyID; JobNumber : WORD;
VAR FileName : FileOfByte) : WORD;
FUNCTION CloseFileAndStartQueueJobText (QueueID : OT_BinderyID; JobNumber : WORD;
VAR FileName : FileOfText) : WORD;
FUNCTION CloseFileAndStartQueueJobBinary (QueueID : OT_BinderyID; JobNumber : WORD;
VAR FileName : FileOfByte) : WORD;
FUNCTION CreateQueue (QueueName : TObjectName; QueueType : OT_BinderyType;
DirectoryHandle : BYTE; PathName : TQueuePathName;
VAR QueueID : OT_BinderyID) : WORD;
FUNCTION CreateQueueJobAndFileText (QueueID : OT_BinderyID; VAR Job : JobStruct286;
VAR FileName : FileOfText) : WORD;
FUNCTION CreateQueueJobAndFileBinary (QueueID : OT_BinderyID; VAR Job : JobStruct286;
VAR FileName : FileOfByte) : WORD;
FUNCTION DestroyQueue (QueueID : OT_BInderyID) : WORD;
FUNCTION DetachQueueServerFromQueue (QueueID : OT_BinderyID) : WORD;
FUNCTION FinishServicingQueueJobAndFileText (QueueID : OT_BinderyID; JobNumber : WORD;
Charge : LONGINT; VAR FileName : FileOfText) : WORD;
FUNCTION FinishServicingQueueJobAndFileBinary (QueueID : OT_BinderyID; JobNumber : WORD;
Charge : LONGINT; VAR FileName : FileOfByte) : WORD;
FUNCTION GetQueueJobList (QueueID : OT_BinderyID; VAR JobCount : WORD;
VAR JobNumberList : TWord250Array;
MaxJobNumbers : WORD) : WORD;
FUNCTION GetQueueJobList2 (QueueID : OT_BinderyID;
QueueStartPosition : LONGINT;
VAR TotalQueueJobs : LONGINT;
VAR JobsInList : LONGINT;
VAR JobNumberList : TLongint125Array) : WORD;
FUNCTION GetQueueJobFileSize (QueueID : OT_BinderyID; JobNumber : WORD;
VAR SizeOfFile : LONGINT) : WORD;
FUNCTION GetQueueJobFileSize2 (QueueID : OT_BinderyID;
JobNumber : LONGINT;
VAR SizeOfFile : LONGINT) : WORD;
FUNCTION ReadQueueCurrentStatus (QueueID : OT_BinderyID; VAR QueueStatus : WORD;
VAR NumberOfJobs, NumberOfServers : WORD;
VAR ServerIDList : TLongint25Array;
VAR ServerStationList : TWord25Array;
MaxNumberOfServers : WORD) : WORD;
FUNCTION ReadQueueJobEntry (QueueID : OT_BinderyID; JobNumber : WORD;
VAR Job : JobStruct286) : WORD;
FUNCTION ReadQueueJobEntry2 (QueueID : OT_BinderyID; JobNumber : LONGINT;
VAR Job : JobStructure) : WORD;
FUNCTION ReadQueueServerCurrentStatus (QueueID, ServerID : OT_BinderyID;
ServerStation : BYTE; VAR ServerStatusRecord : TByte64Array) : WORD;
FUNCTION ReadQueueServerCurrentStatus2 (QueueID, ServerID,
ServerStation : OT_BinderyID;
VAR ServerStatusRecord : TByte64Array) : WORD;
FUNCTION RemoveJobFromQueue (QueueID : OT_BinderyID; JobNumber : WORD) : WORD;
FUNCTION RemoveJobFromQueue2 (QueueID : OT_BinderyID;
JobNumber : LONGINT) : WORD;
FUNCTION RestoreQueueServerRights : WORD;
FUNCTION ServiceQueueJobAndOpenFile (QueueID : OT_BinderyID; TargetJobType : WORD;
VAR Job : JobStruct286; VAR FileName : FileOfText) : WORD;
FUNCTION SetQueueCurrentStatus (QueueID : OT_BinderyID;
QueueStatus : BYTE) : WORD;
FUNCTION SetQueueCurrentStatus2 (QueueID : OT_BinderyID;
QueueStatus : LONGINT) : WORD;
FUNCTION SetQueueServerCurrentStatus (QueueID : WORD; ServerStatusRecord : TByte64Array) : WORD;
DESTRUCTOR Done; VIRTUAL;
END;